Sentence Case Funcția pentru LibreOffice Calc

SENTENCECASE() Descriere

Funcția SENTENCECASE() este concepută pentru a converti textul existent în format de propoziție și returnează un set de cuvinte sub forma: "Sentence case function" .

Sentence Case despart liniile separate prin puncte, semne de exclamare sau semne de întrebare în propoziții separate. Apoi, convertește toate cuvintele în minuscule, cu excepția primei litere din propoziție și apoi combină toate elementele într-un singur text continuu.

Funcția SENTENCECASE() poate fi utilă pentru corectarea literelor din propoziții de-a lungul textului.

StarBASIC Cod pentru SENTENCECASE()

Iată codul macro pentru a crea o funcție personalizată care poate justifica cuvintele în propoziții (Sentence Case) în LibreOffice Calc.

Deschideți meniul Tools - Macros - Edit Macros..., selectați Module1 și copiați următorul text în modul:

Function SentenceCase(ByVal str As String) As String
  'moonexcel.com.ua
  Dim sentences As Variant
  Dim i         As Integer
  Dim FCalc     As Object
    
  FCalc = CreateUnoService("com.sun.star.sheet.FunctionAccess")    
  
  str = Replace(str,"-"," ")
  str = Replace(str,"_"," ")
  str = FCalc.callFunction("TRIM", Array(str))
  str = LCase(str)
  str = FCalc.callFunction("REGEX", Array(str,"([.!?])(\s)(\w)","$1#$3","g"))
  
  sentences = Split(str, "#")
    
  For i = LBound(sentences) To UBound(sentences)       
    sentences(i) = UCase(Left(sentences(i), 1)) & Mid(sentences(i), 2)       
  Next i
    
  SentenceCase = Join(sentences," ")
End Function

Apoi închideți Macro Editor, reveniți la LibreOffice Calc și utilizați noua noastră funcție în orice celulă.

Folosind extensia

De asemenea, puteți utiliza funcția SENTENCECASE() prin instalarea extensiei gratuite YouLibreCalc.oxt sau versiunea sa cu funcții complete YLC_Utilities.oxt .

După aceea, această funcție va fi disponibilă în toate fișierele care vor fi deschise în LibreOffice Calc.